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-- Wart. Mesa Edited by Sandman on May 12, 1978 3:34 PM 

DIRECTORY 

AltoFileDefs: FROM "altof 11 edef s M USING [CFP, FP], 
BootDefs: FROM "bootdefs" USING [ 

BootDataSegment , BootFile, BootFileSegment] , 
ControlDefs: FROM "controldef s" USING [ 

FrameHandle, GetReturnFrame , GlobalFrameHandle, Greg, StateVector, WDCreg, 

XTSreg], 
DirectoryDefs: FROM "directorydef s" USING [EnumerateDirectory] , 
DiskDefs: FROM "diskdefs" USING [DA, VirtualDA], 
FrameDefs: FROM "framedefs" USING [Restart, Start, SwapOutCode] , 
ImageDefs: FROM "imagedefs" USING [Fi leRequest , FirstlmageDataPage] , 
NovaOps: FROM "novaops" USING [NovaJSR, Stop], 
NucleusDefs: FROM "nucleusdef s" USING [ 

DisklO, DiskKD, Files, LoadState, NonResident, Process, Resident, 

Segments, Signaller, Swapper], 
SDDefs: FROM "sddefs" USING [sAddFileRequest , sBreak], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DataSegmentHandle, DeleteDataSegment, DeleteFileSegment, 

EnumerateFileSegments , FileHandle, FileHint, FileSegmentHandle, 

InsertFile, NewDataSegment , PageFromAddress , PageNumber, Read, Unlock, 

VMtoDataSegment, Write], 
StringDefs: FROM "stringdef s" USING [ 

EquivalentString , EquivalentSubStrings , SubStringDescr iptor] , 
TrapDefs: FROM "trapdefs" USING [TraceOff], 
WartDefs: FROM "wartdefs" USING [ 

Bootlndex, BootScriptEntry , BootScriptHeader , Nul IBootlndex] ; 

DEFINITIONS FROM WartDefs, ControlDefs, SegmentDefs; 

Wart: PROGRAM [h: POINTER TO BootScriptHeader] RETURNS [PROGRAM] 
IMPORTS BootDefs, DirectoryDefs, DiskDefs, FrameDefs, NucleusDefs, 

SegmentDefs, StringDefs 
EXPORTS NucleusDefs SHARES ControlDefs, DiskDefs, ImageDefs, SegmentDefs ■ 
BEGIN 

WartBreak: PROCEDURE - 
BEGIN OPEN NovaOps; 
s: StateVector; 
f: FrameHandle; 
break: RECORD[a,b: WORD]; 
s «- STATE; 

break <- [77400B, 1400B]; 
f *- GetReturnFrame[] ; 
s.dest <- f; 

f.pc «- [IF f.pc < THEN -f.pc ELSE (1-f.pc)]; 
s.instbyte «- NovaJSR[JSR, ©break, 0]; 
RETURN WITH s; 
END; 

Nub: TYPE * PROGRAM [GlobalFrameHandle]; 

ProcessWartList: PROCEDURE RETURNS [PROGRAM] « 
BEGIN 

eb: CARDINAL = h.tablebase; 
imagef ile: SegmentDefs. FileHandle; 
oldp, p: Bootlndex «- FIRST[WartDefs .Bootlndex]; 
OldBreak: PROCEDURE; 
MyBreak: PROCEDURE <- WartBreak; 

SD: POINTER TO ARRAY [0..1) OF UNSPECIFIED - h.sd; 
ptSegment: DataSegmentHandle ♦- NIL; 
pPageTable: POINTER TO PageTable = ppPageTablet ; 
vmaddr: POINTER; 

RequestHead: POINTER TO ImageDefs . Fi leRequest <- NIL; 
AddFileRequest: PROCEDURE [r: POINTER TO ImageDefs . FileRequest] * 

BEGIN 

r.link «- RequestHead; 

RequestHead <- r; 

END; 
ProcessFileRequests: PROCEDURE ■ 

BEGIN OPEN AltoFileDefs; 

checkone: PROCEDURE [fp: POINTER TO FP, dname: STRING] RETURNS [BOOLEAN] 
BEGIN 

ss: StringDefs .SubStringDescr iptor <- [dname ,0 , dname. length]; 
r: POINTER TO ImageDefs . Fil eReques t; 
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prev: POINTER TO ImageDef s . FileRequest ♦■ NIL; 
FOR r «- RequestHead, r.link UNTIL r » NIL DO 
IF (WITH r SELECT FROM 

long => StringDefs.EquivalentSubStrings[@ss,@name], 
short »> StringDefs.EquivalentString[dname,name], 
ENDCASE »> FALSE) THEN 
BEGIN 

IF r.file ■ NIL THEN r.file <- InsertFile[fp ,r . access] 
ELSE r.file.fp «- fpt; 
IF prev ■ NIL THEN RequestHead <- r.link 
ELSE prev. link *- r.link; 
END 
ELSE prev «- r; 
ENDLOOP; 
RETURN[RequestHead - NIL] 
END; 
Di rectory Defs .EnumerateDirectory[checkone] ; 
END; 

REGISTER[WDCreg] <- 0; -- interrupts on 
SD[SDDefs.sBreak] <- MyBreak; 
SD[SDDefs.sAddFileRequest] <- AddFileRequest ; 
DO -- exited by a Stop BootScriptEntry 
WITH (eb+p) SELECT FROM 
Command «> 
BEGIN 

SELECT command FROM 
bcO => 
BEGIN 

FrameDef s. Star t[LOOPHOLE[NucleusDef s. Resident] ] ; 
FrameDefs. Star t[LOOPHOLE[NucleusDef s .NonResi dent]]; 
OlclBreak «- SD[SDDef s . sBreak] ; 
SD[SDDefs.sBreak] <- MyBreak; 
START NucleusDefs.DisklO; 

START NucleusDefs.Swapper[h.ffvmp, h.lfvmp]; 
ptSegment <- NewDataSegment[PageFromAddress[pPageTable] , 1]; 
START NucleusDefs. Process; 
START NucleusDefs. Signaller; 
START NucleusDefs . Segments; 
START NucleusDefs. Files; 
imagefile «- BootDef s .BootFile[Read+Write]; 
END; 
bcl => 
BEGIN 

START NucleusDefs. DiskKD; 
START NucleusDefs. LoadS tate[(eb+h . loadSt ate) .handle, 

(eb+h. initLoadState) .handle, (eb+h.bcd) .handle]; 
SegmentDef s . Unlock[(eb+h. bed). handle]; 
Segment Defs ,DeleteFileSegment[(eb+h. bed). handle]; 
START LOOPHOLE[h.nub, Nub][h . user] ; 
END; 
bc2 => 
BEGIN 

RESTART NucleusDefs. Resident; 
END; 
ENDCASE; 
p <- p + SIZE [Command BootScriptEntry]; 
END; 
SwapOutCode »> 
BEGIN 

FrameDefs . SwapOutCode [ frame] ; 
p «- p + SIZE [SwapOutCode BootScriptEntry]; 
END; 
OpenFile ~> 
BEGIN 

ProcessFileRequests[] ; 

p «- p + SIZE [OpenFile BootScriptEntry]; 
END; 
Segment «> 

BEGIN OPEN BootDefs; 

vmaddr <- IF vmpage ■ THEN NIL ELSE AddressFromPage[vmpage]; 

handle <~ IF data 

THEN LOOPIIOLE[BootDataSegment[ base, pages]] 

ELSE BooLF ileSegment[ imagefile, base, pages, access, vmaddr]; 
p <- p + SIZE [Segment BootScriptEntry]; 
END; 
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CodeLink «> 
BEGIN 

frame. codesegment <- (eb+codeseg) .handle; 
(eb+codeseg) .handle. class <- code; 

IF frame ■ LOOPHOLE[REGISTER[Greg] , Global FrameHandle] THEN 
BEGIN 

BootPageTable[imagef ile, pPageTable] ; 
DeleteDataSegment[ptSegment] ; 
END; 
p «- p + SIZE [CodeLink BootScriptEntry] ; 
END; 
Unlock ■> 
BEGIN 

IF segtfNullBootlndex THEN Unlock[(eb+seg) . handle]; 
p <- p + SIZE [Unlock BootScriptEntry]; 
END; 
Stop => 
EXIT; 
ENDCASE ■> NovaOps.Stop[Punt]; 
IF p=oldp THEN NovaOps.Stop[Punt]; 
oldp «- p; 
ENDLOOP; 

DeleteDataSegment[VMtoDataSegment[LOOPHOLE[eb]]]; 

SD[SDDefs.sAddFileRequest] <- 0; 

SD[SDDefs.sBreak] «- OldBreak; 

GetReturnFrame[] . return! ink «- LOOPHOLE[FrameDefs .Restart]; 

RETURN[LOOPHOLE[h.nub]]; 

END; 



- page table 

PageTable: TYPE ■ MACHINE DEPENDENT RECORD [ 

fp: AltoFileDefs.CFP, 

firstpage: CARDINAL, 

table: ARRAY [0..1) OF DiskDef s .DA] ; 
ppPageTable: POINTER TO POINTER TO PageTable * L00PHOLE[24B]; 

BootPageTable: PROCEDURE [f ile: FileHandle, pt:POINTER TO PageTable] 
BEGIN OPEN AltoFileDefs, DiskDefs; 
lastpage: PageNumber; 

pagelnc: PageNumber = pt. firstpage - ImageDef s. FirstlmageDataPage; 
PlugHint: PROCEDURE [seg: Fi leSegmentHandle] RETURNS [BOOLEAN] * 
BEGIN 

IF seg. file = file THEN 
BEGIN 

seg. base «- seg. base + pagelnc; 
IF seg. base IN [pt .firstpage. . lastpage] THEN 
WITH s: seg SELECT FROM 

disk => s.hint <- FileHint[- 
page: s.base, 

da: DiskDef s .Virtual DA[pt . table[s . base-pt. firstpage]]]; 
ENDCASE; 
END; 
RETURN[FALSE] 
END; 
file. open <- TRUE; 

file.fp 4- FP[serial: pt .fp . serial , leaderDA: pt .f p . leaderDA] ; 
FOR lastpage *- 0, lastpage+1 
UNTIL pt.table[lastpage] = DA[0, , , ,0] 

DO NULL ENDLOOP; 
IF lastpage = THEN RETURN; 
lastpage «- lastpage+pt .f irstpage-1; 
[] <- EnumerateFileSegments[PlugHint] ; 
RETURN 
END; 

REGISTER[ControlDefs.XTSreg] ♦■ TrapDef s .TraceOf f ; 
RETURN[ProcessWartList[]]; 

END. . 
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